5 GOTO10010
10 DATAF ,9.648456,Ž10” [C¥molž],Ž10þ [emu¥molž],E4,E3,10,20
20 DATAG ,6.6720,Ž10‰ÇÇ [mþ¥s‰ý¥kgž],Ž10‰˜ [cmþ¥s‰ý¥gž],E-11,E-8,10,30
30 DATANa,6.022045,Ž10ýþ [molž],Ž10ýþ [molž],E23,E23,20,40
40 DATAR ,8.31441," [J¥molž¥Kž]",Ž10— [erg¥molž¥Kž],,E7,30,50
50 DATARï,1.097373177,Ž10— [mž],Ž10• [cmž],E7,E5,40,60
60 DATAVm,22.41383,Ž10‰þ [mþ¥molž],Ž10þ [cmþ¥molž],E-3,E3,50,70
70 DATAaß,5.2917706,Ž10‰ÇÇ [m],Ž10‰™ [cm],E-11,E-1,60,80
80 DATAc ,299792458," [m¥sž]",Ž10ý [cm¥sž],,E2,70,90
90 DATAe ,1.6021892,Ž10‰Ç™ [C],Ž10‰ýø [emu],E-19,E-20,80,100
100 DATAg ,9.80665," [m¥s‰ý]",Ž10ý [cm¥s‰ý],,E2,90,110
110 DATAh ,6.626176,Ž10‰þ” [J¥s],Ž10‰ý— [erg¥s],E-34,E-27,100,120
120 DATAk ,1.380662,Ž10‰ýþ [J¥Kž],Ž10‰Ç– [erg¥Kž],E-23,E-16,110,130
130 DATAme,9.109534,Ž10‰þÇ [kg],Ž10‰ý˜ [g],E-31,E-28,120,140
140 DATAmn,1.6749543,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,130,150
150 DATAmp,1.6726485,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,140,160
160 DATAu ,1.6605655,Ž10‰ý— [kg],Ž10‰ý” [g],E-27,E-24,150,170
170 DATAîß,8.854187818,Ž10‰Çý [F¥mž],,E-12,,160,180
180 DATAæß,12.5663706144,Ž10‰— [H¥mž],,E-7,,170,190
190 DATAæb,9.274078,Ž10‰ý” [J¥Tž],Ž10‰ýÇ [erg¥Gž],E-24,E-21,180,200
200 DATAæe,9.284832,Ž10‰ý” [J¥Tž],Ž10‰ýÇ [erg¥Gž],E-24,E-21,190,210
210 DATAæp,1.4106171,Ž10‰ý– [J¥Tž],Ž10‰ýþ [erg¥Gž],E-26,E-23,200,220
220 DATAå ,5.67032,Ž10‰˜ [W¥m‰ý¥K‰”],Ž10‰•[erg¥sžcm‰ýK‰”],E-8,E-5,210,220
10010 u=0:MODE8:DIM:x=10:y=220:d$=CHR$(5):r=x:DEFCHR$(255)="060A040A0D"
10050 CLS:LOCATE0,1:PRINT">constant : key A-Z ?";
10110 RESTORE(r)
10120 READm$,n$,s$,t$,x$,y$,b,c:l$="["+MID$(STR$(r/10),2)+"]":IFr<100 THENl$=" "+l$
10130 IFu=1 THENu$=t$ ELSEu$=s$
10140 d=0:LOCATE0,0:PRINTd$;m$;" =";n$;u$;:LOCATE27,1:PRINTl$;
10150 LOCATE30,1:z=ASC(INPUT$(1,@))
10165 IFz>96 THENz=z-32
10170 IFz=28 ANDu<>1 THENu=1:GOTO10130
10180 IFz=29 ANDu<>0 THENu=0:GOTO10130
10190 IFz=30 ANDr<>b THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>c THENr=c:GOTO10110
10220 IFz>64 ANDz<91 THENGOSUB10310:d=1
10230 IF(z=28 ORz=29) ANDd=1 THEN10140
10280 GOTO10150
10310 LOCATE0,0:PRINT"[";CHR$(z);"]";
10320 IFu=1 THENv$=n$+y$ ELSEv$=n$+x$
10330 a=VAL(v$)
10350 ON z-64 GOSUB10401,10402,10403,10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426
10401 A=a:RETURN
10402 B=a:RETURN
10403 C=a:RETURN
10404 D=a:RETURN
10405 E=a:RETURN
10406 F=a:RETURN
10407 G=a:RETURN
10408 H=a:RETURN
10409 I=a:RETURN
10410 J=a:RETURN
10411 K=a:RETURN
10412 L=a:RETURN
10413 M=a:RETURN
10414 N=a:RETURN
10415 O=a:RETURN
10416 P=a:RETURN
10417 Q=a:RETURN
10418 R=a:RETURN
10419 S=a:RETURN
10420 T=a:RETURN
10421 U=a:RETURN
10422 V=a:RETURN
10423 W=a:RETURN
10424 X=a:RETURN
10425 Y=a:RETURN
10426 Z=a:RETURN